until                    Defines the Termination Condition of a REPEAT Loop

 repeat
   <statement>;
   <statement>;
   ...;
   <statement>
 until <bool exp>;

    The UNTIL keyword precedes the termination condition of a REPEAT loop.
    The REPEAT loop executes until <bool exp> yields a TRUE value.

        <statement>   Any legal statement.

         <bool exp>   A Boolean expression, yielding TRUE or FALSE.

  -------------------------------- Example ---------------------------------

           I := 0;
           repeat
             J := I*I;
             Writeln(I:2,J:4);
             I := I + 1
           until I > 10;